

       integer icountdim
       parameter (icountdim=10)
       integer icount(icountdim)
       common /abc/ icount


       integer ithresh(icountdim)
       integer ith

       integer imaxv
       parameter (imaxv=100)

       integer ival(imaxv)
       integer nll(imaxv)
       common /ghi/ ival,nll

       integer ixco,iyco,izco,isize
       common /def/ ithresh, ith,ixco,iyco,izco,isize



          
